perm filename TABLE.LIB[WHT,LSP] blob
sn#725925 filedate 1984-05-12 generic text, type T, neo UTF8
@Marker(Library,Table,Dover)
@Comment{New library definitions for tables.⎇
@Style(StringMax=10000)
@Modify(Table, Spacing 1)
@Define(Liner, underline all, tabexport off, script -1pt,
rightmargin +1pts, leftmargin +2pts)
@Define(up6, script +6pts)
@textform(VB={@string(NID = "@parm(text)")@case(NID,
1 "@hsp(1pt)@ovp[|]@up6[|]",
2 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
3 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
4 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
5 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
6 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
7 "@hsp(1pt)@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@>@ovp[|]@up6[|]@\",
else "@hsp(1pt)@ovp[|]@up6[|]")⎇)
@Form(TLine="@enter(Liner, script @parm<height, default=[+3pts]>)@}
@tabclear()@&@ @\@leave(Liner)")
@TextForm(BLine="@ovp<@Liner(@tabclear()@&@ @\)>@VB(@parm(text))")
@TextForm(TL="@hsp(1)@parm(text)@>@ovp[|]@up6[|]@\")
@TextForm(TC="@=@parm(text)@>@ovp[|]@up6[|]@\")
@TextForm(TR="@>@parm(text)@hsp(1)@ovp[|]@up6[|]@\")